home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / de / comm / isdn / 7608 < prev    next >
Text File  |  1996-08-06  |  2KB  |  63 lines
  1. Path: news.dfn.de!si-nic!usenet
  2. From: Roland Reichardt <gk820@appl2.hrz.uni-siegen.de>
  3. Newsgroups: de.comm.isdn
  4. Subject: Password von Euracom entschluesselt
  5. Date: 28 Mar 1996 20:24:39 GMT
  6. Organization: Computer Center, University of Siegen, Germany
  7. Message-ID: <4jesi7$4ck@si-nic.hrz.uni-siegen.de>
  8. NNTP-Posting-Host: slip3.hrz.uni-siegen.de
  9.  
  10. So geht's
  11.  
  12. { Passwortentschlⁿsselung des      }
  13. { Eurakom Konfigurationsprogrammes }
  14.  
  15. { Roland Reichardt                 }
  16. { Obere Rolandstr. 4               }
  17. { 57076 Siegen                     }
  18. { Tel.: (0271) 48939-41            }
  19. { Fax.: (0271) 48939-43            }
  20.  
  21. program Euracom;
  22.  
  23. uses objects;
  24.  
  25. var
  26.   rein : TBufStream;
  27.   Dateiname : String;
  28.   i : integer;
  29.   Zeichen : Integer;
  30.  
  31. begin
  32.   Dateiname := '';
  33.   Writeln('Bitte geben Sie den Namen der Eurakom Datei ein.');
  34.   Write('<EINGABE> = KONFIG.EXE :');
  35.   Readln(Dateiname);
  36.   IF Dateiname = '' THEN Dateiname := 'KONFIG.EXE';
  37.   Rein.Init (Dateiname, stOpen, 1024);
  38.   If Rein.Status <> stOK Then
  39.     begin
  40.       Writeln('Quelldatei nicht gefunden: ',Dateiname);
  41.       Exit;
  42.     end;
  43.   Writeln('Passwort des Euracom Konfigurationsprogrammes: ');
  44.  
  45.                         { An die Stelle im Programm springen }
  46.                         { wo das Passwort eingetragen wird.  }
  47.                         { Hexadezimal: 3825                  }
  48.                         { Dezimal    : 14373                 }
  49.  
  50.   Rein.Seek(14373);
  51.                         { Die Zehn Zeichen des Passwortes    }
  52.   For i := 0 TO 9 DO
  53.   begin
  54.     Rein.Read  (Zeichen, SizeOf (Zeichen));
  55.  
  56.                         { Ende des Passwortes, wenn Zeichen=0}
  57.  
  58.     IF Zeichen <> 0 THEN Write(CHR(Zeichen+(i*221)));
  59.   end;
  60.   Writeln;
  61.   Rein.Done;
  62. end.
  63.